home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00068.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  429 b   |  13 lines
  1. global gFieldTop, gchaptertextheight, glessonnumber, theSparkle, gplaystatus, gAfterClick
  2.  
  3. on mouseDown
  4.   set mouseloc to (getAt(clickLoc(), 2) - gFieldTop) / gchaptertextheight
  5.   if (mouseloc >= 1) and (mouseloc <= glessonnumber) then
  6.     pausethemoov()
  7.     sparkle(theSparkle, getAt(clickLoc(), 1), getAt(clickLoc(), 2))
  8.     set gplaystatus to #pause
  9.     donewchapter(mouseloc, 1, #pause)
  10.     set gAfterClick to 1
  11.   end if
  12. end
  13.